home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / e / amigae33a.lha / E_v3.3a / Src.lha / Src / Tools / Useful / cia.e < prev    next >
Text File  |  1995-09-04  |  617b  |  28 lines
  1. OPT MODULE
  2.  
  3. EXPORT PROC addICRVector(resource, iCRBit, interrupt)
  4.   MOVE.L iCRBit, D0
  5.   MOVE.L interrupt, A1
  6.   MOVE.L resource, A6
  7.   JSR -6(A6)  -> Offset of real AddICRVector
  8. ENDPROC D0
  9.  
  10. EXPORT PROC remICRVector(resource, iCRBit, interrupt)
  11.   MOVE.L iCRBit, D0
  12.   MOVE.L interrupt, A1
  13.   MOVE.L resource, A6
  14.   JSR -12(A6)  -> Offset of real RemICRVector
  15. ENDPROC
  16.  
  17. EXPORT PROC ableICR(resource, mask)
  18.   MOVE.L mask, D0
  19.   MOVE.L resource, A6
  20.   JSR -18(A6)  -> Offset of real AbleICR
  21. ENDPROC D0
  22.  
  23. EXPORT PROC setICR(resource, mask)
  24.   MOVE.L mask, D0
  25.   MOVE.L resource, A6
  26.   JSR -24(A6)  -> Offset of real SetICR
  27. ENDPROC D0
  28.